﻿Imports EVOLTA.Promocion.Bl.Bc
Imports EVOLTA.Promocion.Bl.Be

Partial Class reportes_consultaProformasVersus
    Inherits System.Web.UI.Page

    Private proformas As List(Of EproformaCabecera) = Nothing
    Private proformasDetalles As List(Of EproformaDetalle) = Nothing

#Region "       Formulario                          "
    Function empresas(ByVal descEmpresa As String) As Int32
        Dim idEmpresa As Int32 = 0
        Select Case descEmpresa.ToUpper
            Case "EVOLTA" : idEmpresa = 1
            Case "EGRP" : idEmpresa = 2
            Case "EVALORA" : idEmpresa = 3
            Case "ETYC" : idEmpresa = 4
            Case "EIBHER" : idEmpresa = 5
            Case "ECASTER" : idEmpresa = 6
            Case "E4R" : idEmpresa = 7
            Case "EENACORP" : idEmpresa = 8
            Case "EAURORA" : idEmpresa = 9
            Case "EEDIFICA" : idEmpresa = 10
            Case "ECIUDARIS" : idEmpresa = 11
            Case "EPAZCEN" : idEmpresa = 12
            Case "EDOOMO" : idEmpresa = 13
            Case "EPARAMETROS" : idEmpresa = 14
            Case "EURBAN" : idEmpresa = 15
            Case "EVELCO" : idEmpresa = 16
            Case "EPADOVA" : idEmpresa = 17
            Case "EACUARIO" : idEmpresa = 18
            Case "EJJC" : idEmpresa = 19
        End Select
        Return idEmpresa
    End Function
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Response.CacheControl = "no-cache"
        Response.AddHeader("Pragma", "no-cache")
        Response.Expires = -1
        '***********************************************************'
        If Not IsPostBack Then
            cargarVendedor()
            cargarFormaContacto()
            cargarNivelInteres()
            cargarComoSeEntero()
            cargarDepartamento()
            ddlDepartamento.SelectedValue = "15"
            cargarProvincia(ddlDepartamento.SelectedValue)
            ddlProvincia.SelectedValue = "01"
            cargarDistrito(ddlDepartamento.SelectedValue, ddlProvincia.SelectedValue)
            cargarModeloInmueble()
            cargarPerfilCrediticio()
            txtFchInicio.Text = ""
            upFchInicio.Update()
            txtFchFin.Text = ""
            upFchFin.Update()
        End If
    End Sub
    Private Sub cargarVendedor()
        selVendedor.DataSource = Rvendedor.SeleccionarXEstado(Me.Master.descEmpresa, True)
        selVendedor.DataTextField = "NombresCompletos"
        selVendedor.DataValueField = "idVendedor"
        selVendedor.DataBind()
        upVendedor.Update()
    End Sub
    Private Sub cargarFormaContacto()
        selFormaContacto.DataSource = RformaContacto.SeleccionarXEstado(Me.Master.descEmpresa, True)
        selFormaContacto.DataTextField = "descFormaContacto"
        selFormaContacto.DataValueField = "idFormaContacto"
        selFormaContacto.DataBind()
    End Sub
    Private Sub cargarNivelInteres()
        selNivelInteres.DataSource = RnivelInteres.SeleccionarXEstado(Me.Master.descEmpresa, True)
        selNivelInteres.DataTextField = "descNivelInteres"
        selNivelInteres.DataValueField = "idNivelInteres"
        selNivelInteres.DataBind()
        upNivelInteres.Update()
    End Sub
    Private Sub cargarComoSeEntero()
        selComoSeEntero.DataSource = RcomoSeEntero.SeleccionarXEstado(Me.Master.descEmpresa, True)
        selComoSeEntero.DataTextField = "descComoseEntero"
        selComoSeEntero.DataValueField = "idComoSeEntero"
        selComoSeEntero.DataBind()
        upComoSeEntero.Update()
    End Sub
    Private Sub cargarDepartamento()
        ddlDepartamento.DataSource = Rubigeo.SeleccionarTodoXDepartamento(Me.Master.descEmpresa, True)
        ddlDepartamento.DataTextField = "descripcion"
        ddlDepartamento.DataValueField = "idUbigeo"
        ddlDepartamento.DataBind()
        upDepartamento.Update()
    End Sub
    Private Sub cargarProvincia(ByVal idDepartamento As String)
        ddlProvincia.DataSource = Rubigeo.SeleccionarTodoXProvincia(Me.Master.descEmpresa, True, idDepartamento)
        ddlProvincia.DataTextField = "descripcion"
        ddlProvincia.DataValueField = "idUbigeo"
        ddlProvincia.DataBind()
        upProvincia.Update()
    End Sub
    Private Sub cargarDistrito(ByVal idDepartamento As String, ByVal idProvincia As String)
        selDistrito.DataSource = Rubigeo.SeleccionarTodoXDistrito(Me.Master.descEmpresa, True, idDepartamento, idProvincia)
        selDistrito.DataTextField = "descripcion"
        selDistrito.DataValueField = "idUbigeo"
        selDistrito.DataBind()
        upDistrito.Update()
    End Sub
    Private Sub cargarModeloInmueble()
        selModeloInmueble.DataSource = RmodeloInmueble.SeleccionarTodo(Me.Master.descEmpresa, True, Me.Master.idProyecto, Me.Master.idEtapa)
        selModeloInmueble.DataTextField = "nomModelo"
        selModeloInmueble.DataValueField = "idModelo"
        selModeloInmueble.DataBind()
        upModeloInmueble.Update()
    End Sub
    Private Sub cargarPerfilCrediticio()
        selPerfilCrediticio.DataSource = RperfilCrediticio.SeleccionarTodo(Me.Master.descEmpresa, True)
        selPerfilCrediticio.DataTextField = "descPerfilCrediticio"
        selPerfilCrediticio.DataValueField = "idPerfilCrediticio"
        selPerfilCrediticio.DataBind()
        upPerfilCrediticio.Update()
    End Sub
    Protected Sub ddlDepartamento_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlDepartamento.SelectedIndexChanged
        If ddlDepartamento.SelectedItem Is Nothing Then
            Return
        End If
        If ddlDepartamento.SelectedIndex > 0 Then
            ddlProvincia.Items.Clear()
            selDistrito.Items.Clear()
            selDistrito.Items.Add(New ListItem("-- SELECCIONE --", "0"))
            cargarProvincia(ddlDepartamento.SelectedItem.Value)
        Else
            ddlProvincia.Items.Clear()
            selDistrito.Items.Clear()
            ddlProvincia.Items.Add(New ListItem("-- SELECCIONE --", "0"))
            selDistrito.Items.Add(New ListItem("-- SELECCIONE --", "0"))
        End If
        upProvincia.Update()
        upDistrito.Update()
    End Sub
    Protected Sub ddlProvincia_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlProvincia.SelectedIndexChanged
        If ddlProvincia.SelectedItem Is Nothing Then
            Return
        End If
        If ddlProvincia.SelectedIndex > 0 Then
            selDistrito.Items.Clear()
            cargarDistrito(ddlDepartamento.SelectedItem.Value, ddlProvincia.SelectedItem.Value)
        Else
            selDistrito.Items.Clear()
            selDistrito.Items.Add(New ListItem("-- SELECCIONE --", "0"))
        End If
        upDistrito.Update()
    End Sub
    Protected Sub btnBuscar_Click(ByVal sender As Object, ByVal e As System.EventArgs) _
    Handles btnBuscar.Click
        If txtFchInicio.Text.Length > 0 AndAlso txtFchFin.Text.Length > 0 Then
            Dim proforma As New EproformaCabecera
            With proforma
                .idEmpresa = empresas(Me.Master.descEmpresa)
                .idProyecto = Me.Master.idProyecto
                .idEtapa = Me.Master.idEtapa
                .Evendedor = New Evendedor
                .Evendedor.idVendedor = selVendedor.Value
                .EformaContacto = New EformaContacto
                .EformaContacto.idFormaContacto = selFormaContacto.Value
                .EnivelInteres = New EnivelInteres
                .EnivelInteres.idNivelInteres = selNivelInteres.Value
                .EcomoSeEntero = New EcomoSeEntero
                .EcomoSeEntero.idComoSeEntero = selComoSeEntero.Value
                .EposibleCliente = New EposibleCliente
                .EposibleCliente.Eubigeo = New Eubigeo
                .idUbigeo = ddlDepartamento.SelectedValue.Trim.PadLeft(2, "0") + ddlProvincia.SelectedValue.Trim.PadLeft(2, "0") + selDistrito.Value.Trim.PadLeft(2, "0")
                .EmodeloInmueble = New EmodeloInmueble
                .EmodeloInmueble.idModelo = selModeloInmueble.Value
                .EperfilCrediticio = New EperfilCrediticio
                .EperfilCrediticio.idPerfilCrediticio = selPerfilCrediticio.Value
                .fchInicio = txtFchInicio.Text
                .fchFin = txtFchFin.Text
                .filtro = txtPosCliente.Value
            End With
            proformas = RproformaCabecera.ReporteXEmpresa("EVERSUS", False, proforma)
            Session("reporteProforma") = proformas
            proformasDetalles = RproformaDetalle.ReporteProformaDetalleXEmpresa("EVERSUS", False, proforma)
            Session("reporteProformaDetalles") = proformasDetalles
            If Not proformas Is Nothing Then
                egvProforma.DataSource = proformas
                egvProforma.DataBind()
                upnSeparacionVenta.Update()
                'Dim montoTotalProforma As Decimal = 0
                'For Each p As EproformaCabecera In proformas
                '    montoTotalProforma += p.totalMontoFinal
                'Next
                'lblTotalIngresosSeparación.Text = montoTotalProforma.ToString("#,###,##0.00")
                lblTotalIngresosSeparación.Text = String.Format(": {0:###,###,##00.00}", (From prof As EproformaCabecera In proformas _
                                                                                          Select prof.totalMontoFinal).Sum())
            End If
        End If
    End Sub
    Protected Sub btnLimpiar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnLimpiar.Click
        selVendedor.SelectedIndex = 0
        upVendedor.Update()
        selNivelInteres.SelectedIndex = 0
        upNivelInteres.Update()
        selComoSeEntero.SelectedIndex = 0
        upComoSeEntero.Update()
        txtFchInicio.Text = ""
        upFchInicio.Update()
        txtFchFin.Text = ""
        upFchFin.Update()
        egvProforma.DataSource = Nothing
        upnSeparacionVenta.Update()
    End Sub
    Protected Sub btnExportar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnExportar.Click
        proformas = Session("reporteProforma")
        proformasDetalles = Session("reporteProformaDetalles")

        If Not proformas Is Nothing Then
            Dim fileName As String = "ConsultaProforma{0}.xls"
            fileName = String.Format(fileName, DateTime.Now.ToShortDateString())
            Dim Response As HttpResponse = HttpContext.Current.Response
            Response.ContentType = "application/vnd.ms-excel"
            Response.Charset = "UTF-8"
            Response.ContentEncoding = System.Text.Encoding.Default
            Response.AddHeader("Content-Disposition", "attachment; filename=" + fileName)

            Response.Write("idProyecto") : Response.Write(vbTab)
            Response.Write("Proyecto") : Response.Write(vbTab)
            Response.Write("idEtapa") : Response.Write(vbTab)
            Response.Write("Etapa") : Response.Write(vbTab)
            Response.Write("Nº Proforma") : Response.Write(vbTab)
            Response.Write("Fecha") : Response.Write(vbTab)
            Response.Write("N°. Semana") : Response.Write(vbTab)
            Response.Write("Nombres") : Response.Write(vbTab)
            Response.Write("DNI") : Response.Write(vbTab)
            Response.Write("Rango de Edad") : Response.Write(vbTab)
            Response.Write("Teléfonos") : Response.Write(vbTab)
            Response.Write("T. Ingreso") : Response.Write(vbTab)
            Response.Write("Distrito") : Response.Write(vbTab)
            Response.Write("Email") : Response.Write(vbTab)
            Response.Write("Vendedor") : Response.Write(vbTab)
            Response.Write("Inmueble") : Response.Write(vbTab)
            Response.Write("Nivel de Interés") : Response.Write(vbTab)
            Response.Write("Como se Entero") : Response.Write(vbTab)
            Response.Write("Forma de Contacto") : Response.Write(vbTab)
            Response.Write("Descuento") : Response.Write(vbTab)
            Response.Write("Perfil Crediticio") : Response.Write(vbTab)
            Response.Write("Total") : Response.Write(vbTab)
            Response.Write("Observación") : Response.Write(vbTab)
            Response.Write(vbCrLf)

            Dim value As String
            Dim varIdProforma As Int32 = 0
            For Each proforma In proformas
                value = proforma.idProyecto
                Response.Write(value) : Response.Write(vbTab)

                value = proforma.descProyecto
                Response.Write(value) : Response.Write(vbTab)

                value = proforma.idEtapa
                Response.Write(value) : Response.Write(vbTab)

                value = proforma.descEtapa
                Response.Write(value) : Response.Write(vbTab)

                value = proforma.idProforma
                varIdProforma = proforma.idProforma
                Response.Write(value) : Response.Write(vbTab)

                value = proforma.fchCreacion
                Response.Write(value) : Response.Write(vbTab)

                value = DatePart(DateInterval.WeekOfYear, CType(proforma.fchCreacion, Date))
                Response.Write(value) : Response.Write(vbTab)

                value = proforma.NombresCompletos
                Response.Write(value) : Response.Write(vbTab)

                value = proforma.nroDocumento.Trim
                Response.Write(value) : Response.Write(vbTab)

                value = proforma.rangoEdadDe.Trim & " -- " & proforma.RangoEdadHasta.Trim
                Response.Write(value) : Response.Write(vbTab)

                value = proforma.TelefonosPosCliente
                Response.Write(value) : Response.Write(vbTab)

                value = proforma.totalIngreso.ToString("###,##0.00")
                Response.Write(value) : Response.Write(vbTab)

                value = proforma.distrito
                Response.Write(value) : Response.Write(vbTab)

                value = proforma.emailCliente
                Response.Write(value) : Response.Write(vbTab)

                value = proforma.nombreCompletosVendedor
                Response.Write(value) : Response.Write(vbTab)

                If Not proformasDetalles Is Nothing Then
                    Dim valueDetalle As String = Nothing
                    For Each pd In proformasDetalles
                        If proforma.idProyecto = pd.idProyecto AndAlso _
                           proforma.idEtapa = pd.idEtapa AndAlso _
                           proforma.idProforma = pd.idProforma Then

                            valueDetalle += pd.nomModelo.Trim + ":" + pd.nroInmueble.Trim + ","
                        End If
                    Next
                    Response.Write(valueDetalle) : Response.Write(vbTab)
                End If

                value = proforma.descNivelInteres
                Response.Write(value) : Response.Write(vbTab)

                value = proforma.descComoSeEntero
                Response.Write(value) : Response.Write(vbTab)

                value = proforma.descFormaContacto
                Response.Write(value) : Response.Write(vbTab)

                value = proforma.descuento.ToString("###,##0.00")
                Response.Write(value) : Response.Write(vbTab)

                value = proforma.descPerfilCrediticio
                Response.Write(value) : Response.Write(vbTab)

                value = proforma.totalMontoFinal.ToString("###,##0.00")
                Response.Write(value) : Response.Write(vbTab)

                value = proforma.observacion
                Response.Write(value) : Response.Write(vbTab) : Response.Write(vbCrLf)
            Next
            Response.End()
        Else
            Dim jsMensaje As String = Nothing
            jsMensaje = "<script>javascript:alert(' La consulta no pudo ser procesada.  Por favor inténtelo de nuevo.');</script>)"
            Controls.Add(New LiteralControl(jsMensaje))
        End If

        'If Not proformas Is Nothing Then
        '    Dim fileName As String = "ConsultaProforma{0}.xls"
        '    fileName = String.Format(fileName, DateTime.Now.ToShortDateString())
        '    Dim Response As HttpResponse = HttpContext.Current.Response
        '    Response.ContentType = "application/vnd.ms-excel"
        '    Response.Charset = "UTF-8"
        '    Response.ContentEncoding = System.Text.Encoding.Default
        '    Response.AddHeader("Content-Disposition", "attachment; filename=" + fileName)

        '    Response.Write("idProyecto") : Response.Write(vbTab)
        '    Response.Write("Proyecto") : Response.Write(vbTab)
        '    Response.Write("idEtapa") : Response.Write(vbTab)
        '    Response.Write("Etapa") : Response.Write(vbTab)
        '    Response.Write("Nº Proforma") : Response.Write(vbTab)
        '    Response.Write("Fecha") : Response.Write(vbTab)
        '    Response.Write("N°. Semana") : Response.Write(vbTab)
        '    Response.Write("Nombres") : Response.Write(vbTab)
        '    Response.Write("Rango de Edad") : Response.Write(vbTab)
        '    Response.Write("Teléfonos") : Response.Write(vbTab)
        '    Response.Write("Distrito") : Response.Write(vbTab)
        '    Response.Write("Email") : Response.Write(vbTab)
        '    Response.Write("Vendedor") : Response.Write(vbTab)
        '    'Response.Write("Inmueble") : Response.Write(vbTab)
        '    Response.Write("Nivel de Interés") : Response.Write(vbTab)
        '    Response.Write("Como se Entero") : Response.Write(vbTab)
        '    Response.Write("Forma de Contacto") : Response.Write(vbTab)
        '    Response.Write("Descuento") : Response.Write(vbTab)
        '    Response.Write("Total") : Response.Write(vbTab)
        '    Response.Write("Observación") : Response.Write(vbTab)
        '    Response.Write(vbCrLf)

        '    Dim value As String
        '    Dim varIdProforma As Int32 = 0
        '    For Each proforma In proformas
        '        value = proforma.idProyecto
        '        Response.Write(value) : Response.Write(vbTab)

        '        value = proforma.descProyecto
        '        Response.Write(value) : Response.Write(vbTab)

        '        value = proforma.idEtapa
        '        Response.Write(value) : Response.Write(vbTab)

        '        value = proforma.descEtapa
        '        Response.Write(value) : Response.Write(vbTab)

        '        value = proforma.idProforma
        '        varIdProforma = proforma.idProforma
        '        Response.Write(value) : Response.Write(vbTab)

        '        value = proforma.fchCreacion
        '        Response.Write(value) : Response.Write(vbTab)

        '        value = DatePart(DateInterval.WeekOfYear, CType(proforma.fchCreacion, Date))
        '        Response.Write(value) : Response.Write(vbTab)

        '        value = proforma.NombresCompletos
        '        Response.Write(value) : Response.Write(vbTab)

        '        value = proforma.rangoEdadDe.Trim & " -- " & proforma.RangoEdadHasta.Trim
        '        Response.Write(value) : Response.Write(vbTab)

        '        value = proforma.TelefonosPosCliente
        '        Response.Write(value) : Response.Write(vbTab)

        '        value = proforma.distrito
        '        Response.Write(value) : Response.Write(vbTab)

        '        value = proforma.emailCliente
        '        Response.Write(value) : Response.Write(vbTab)

        '        value = proforma.nombreCompletosVendedor
        '        Response.Write(value) : Response.Write(vbTab)

        '        'If Not proformaDetalles Is Nothing Then
        '        '    Dim valueDetalle As String = Nothing
        '        '    For Each pd In proformaDetalles
        '        '        If proforma.idProyecto = pd.idProyecto AndAlso _
        '        '           proforma.idEtapa = pd.idEtapa AndAlso _
        '        '           proforma.idProforma = pd.idProforma Then

        '        '            valueDetalle += pd.nomModelo.Trim + ":" + pd.nroInmueble.Trim + ","
        '        '        End If
        '        '    Next
        '        '    Response.Write(valueDetalle) : Response.Write(vbTab)
        '        'End If

        '        value = proforma.descNivelInteres
        '        Response.Write(value) : Response.Write(vbTab)

        '        value = proforma.descComoSeEntero
        '        Response.Write(value) : Response.Write(vbTab)

        '        value = proforma.descFormaContacto
        '        Response.Write(value) : Response.Write(vbTab)

        '        value = proforma.descuento.ToString("###,##0.00")
        '        Response.Write(value) : Response.Write(vbTab)

        '        value = proforma.totalMontoFinal.ToString("###,##0.00")
        '        Response.Write(value) : Response.Write(vbTab)

        '        value = proforma.observacion
        '        Response.Write(value) : Response.Write(vbTab) : Response.Write(vbCrLf)

        '        Dim LseparacionDetalles = From pd In proformasDetalles _
        '                                  Where pd.idProforma = CType(varIdProforma, Int32) _
        '                                  Select pd

        '        If Not LseparacionDetalles Is Nothing Then
        '            Response.Write(vbTab)
        '            Response.Write("Edificio") : Response.Write(vbTab)
        '            Response.Write("Modelo") : Response.Write(vbTab)
        '            Response.Write("Descripción Inmueble") : Response.Write(vbTab)
        '            Response.Write("N° Inmueble") : Response.Write(vbTab)
        '            Response.Write("Precio") : Response.Write(vbTab)
        '            Response.Write("Dscto") : Response.Write(vbTab)
        '            Response.Write(vbCrLf)

        '            Dim valueDetalle As String = Nothing
        '            For Each proformaDetalle In LseparacionDetalles

        '                Response.Write(vbTab)
        '                value = proformaDetalle.descEdificio
        '                Response.Write(value) : Response.Write(vbTab)

        '                value = proformaDetalle.nomModelo
        '                Response.Write(value) : Response.Write(vbTab)

        '                value = proformaDetalle.descTpoInmueble
        '                Response.Write(value) : Response.Write(vbTab)

        '                value = proformaDetalle.nroInmueble
        '                Response.Write(value) : Response.Write(vbTab)

        '                value = String.Format("{0:#,###,##0.00}", proformaDetalle.monto)
        '                Response.Write(value) : Response.Write(vbTab)

        '                value = String.Format("{0:#,###,##0.00}", proformaDetalle.dscto)
        '                Response.Write(value)
        '                Response.Write(vbCrLf)
        '            Next
        '            Response.Write(vbCrLf)
        '        End If
        '    Next
        '    Response.End()
        'Else
        '    Dim jsMensaje As String = Nothing
        '    jsMensaje = "<script>javascript:alert(' La consulta no pudo ser procesada.  Por favor inténtelo de nuevo.');</script>)"
        '    Controls.Add(New LiteralControl(jsMensaje))
        'End If
    End Sub
#End Region

#Region "       Proforma Detalle                    "
    Protected Sub egvProforma_PageIndexChanging(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewPageEventArgs) Handles egvProforma.PageIndexChanging
        proformas = Session("reporteProforma")
        If Not proformas Is Nothing Then
            egvProforma.DataSource = proformas
            egvProforma.PageIndex = e.NewPageIndex
            egvProforma.DataBind()
            upnSeparacionVenta.Update()
        End If
    End Sub
    Protected Sub egvProforma_RowCreated(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) _
    Handles egvProforma.RowCreated
        If e.Row.RowType = DataControlRowType.DataRow Then
            e.Row.Attributes.Add("OnMouseOver", "Resaltar_On(this);")
            e.Row.Attributes.Add("OnMouseOut", "Resaltar_Off(this);")

            Dim strUidSeparacion As String = DataBinder.Eval(e.Row.DataItem, "idProforma").ToString()
            Dim egvDetalleProforma As GridView = CType(e.Row.FindControl("egvDetalleProforma"), GridView)
            AddHandler egvDetalleProforma.RowCreated, AddressOf egvDetalleProforma_RowCreated
            If strUidSeparacion.Length > 0 Then
                proformasDetalles = Session("reporteProformaDetalles")
                Dim LproformaDetalles = From pd In proformasDetalles _
                                        Where pd.idProyecto.ToString = Me.Master.idProyecto AndAlso _
                                              pd.idEtapa = Me.Master.idEtapa AndAlso _
                                              pd.idProforma = CType(strUidSeparacion, Int32) _
                                        Select pd

                If proformasDetalles.Count > 0 Then
                    egvDetalleProforma.DataSource = LproformaDetalles
                    Dim objFila As ExGridView.ExtGridViewRow = CType(e.Row, ExGridView.ExtGridViewRow)
                    objFila.ShowExpand = True
                End If
            End If

            Dim pce As AjaxControlToolkit.PopupControlExtender = TryCast(e.Row.FindControl("pceObs"), AjaxControlToolkit.PopupControlExtender)
            If Not pce Is Nothing Then
                Dim behaviorID As String = String.Concat("pce", e.Row.RowIndex)
                pce.BehaviorID = behaviorID

                Dim i As Image = DirectCast(e.Row.Cells(1).FindControl("imgObs"), Image)

                Dim OnMouseOverScript As String = String.Format("$find('{0}').showPopup();", behaviorID)
                Dim OnMouseOutScript As String = String.Format("$find('{0}').hidePopup();", behaviorID)

                i.Attributes.Add("onmouseover", OnMouseOverScript)
                i.Attributes.Add("onmouseout", OnMouseOutScript)
            End If
        End If
    End Sub
    Protected Sub egvDetalleProforma_RowCreated(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs)
        If e.Row.RowType = DataControlRowType.DataRow Then
            e.Row.Attributes.Add("OnMouseOver", "Resaltar_On(this);")
            e.Row.Attributes.Add("OnMouseOut", "Resaltar_Off(this);")
        End If
    End Sub
#End Region

End Class
